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. TITLE TSMSG — TSX-Plus Message Transfer System 

. ENABL LC 

. DSABL GBL 

. ENABL AMA 

Copyright (c) 1977,1978,1979,1980,1981,1982,1983,1984. 

S&H Computer Systems, Inc. 
Nashville, Tennessee 

The routines in this module implement the TSX-Plus interjob 
message communication system. 



. CSECT TSMSG 
TSMSG: . RAD50 /MSG/ 

Global definitions 



System overlay ID 



GLOBL MSEND, MSGCK, MSGWT, TSMSG 
GLOBL MSGINI,MSGTOP,MSGABT, MBMHD 



Global references 



GLOBL MB«BUF, MB*FLK, EMTBLK, VMAXMC, EB«BUF, EB*RTN 

GLOBL CORUSR, MR*LNK, MR*JOB, MB*FLK, MR*RTN, QF*SCR 

GLOBL MB*NAM, PUTUCH, S*HICP, EB*NAM, GETUCH, S*IOFN 

GLOBL MB*REQ, MU*SIZ, QCOMPL, LITIME, GETQ, CQ*PRI 

GLOBL MB««SZ, CHKABT, INTERR, QHDSPN, EB*SIZ, CQ*RO 

GLOBL MU*TXT, VMSCHR, QHIPR I , URO, CQ*RTN, VPAR6, CQ*FLG 

GLOBL LPRI, VMXMRB, LPRI, SfMSWT, MR**SZ. MR*BUF, VMXMSG 

GLOBL MR*UBA, MR*UBS, LSTATE, CQ*RNS, MU*FLK, LCMQHD, CQ*JOB 

GLOBL KPAR5, CQ*PA5, MU*JOB. CQ«R1, CQ«CP, CP«STD 

for EMT error codes 



All message channels are busy 

No free message queue entries 

No message uias queued on specified channel 

Message was longer than specified buffer 

No free message request blocks 



.List head of active message channel blocks 

iList of free message channel blocks 

iList of free message request blocks 

iList of free message text blocks 

i Used to hold channel name string 
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. 3BTTL MSGINI — Message system initialization 

MSGINI is called during system initialization to initialize the 
data areas used for message communication. 

The message tables are allocated uiithin this system overlay 
starting just beyond the end of the code. 



MSGINI: 



MOV 
MOV 
MOV 
MOV 



R2. -(SP) 
R3, -<SP) 
R4, - ( SP ) 
R5, -<SP) 



Start data areas above top of code 

MOV #MSGTOPj R2 j Get address above top of code 



Allocate message channel blocks 



1$: 



MOV 
MOV 
MOV 
ADD 
MOV 
MOV 
SOB 
CLR 



R2, MCBFHD 
VMAXMCi RO 
R2, R3 

#MB**SZ. R3 
R3, MB*FLK(R2) 
R3, R2 
RO, 1« 



Set pointer to 1st free message channel blk 

Get # blocks to allocate 

Get address of current block 

Get address of next block 

Set pointer to next block 

Get address of next block 

Loop if need to allocate more 



MB*FLK-MB**SZ<R2); Clear link in last block 



Allocate message request blocks 



2*: 



3«; 



4*: 



MOV 


VMXMRB, RO ; 


BEQ 


3* ; 


MOV 


R2, MRBFHD ; 


MOV 


R2, R3 i 


ADD 


#MR**SZ, R3 i 


MOV 


R3, MR*LNK(R2> i 


MOV 


R3, R2 i 


SOB 


RO, 2* i 


CLR 


MR*LNK-MR**SZ<R2) 


Allocate 


message text blocks 


MOV 


VMXMSG, RO i 


BEQ 


9* i 


CLR 


VMXMSG ; 


MOV 


R2, MTBFHD ; 


MOV 


VMSCHR, R4 i 


ADD 


#<MU*TXT+1>, R4 i 


BIC 


#1,R4 ■> 


MOV 


#VPAR6. R5 ; 


SUB 


R4, R5 J 


SUB 


R4, R5 


MOV 


R2, R3 i 


ADD 


R4,R3 i 


CMP 


R3, R5 i 


BHIS 


6* ; 


INC 


VMXMSG i 


MOV 


R3, MU*FLK<R2) ; 



Get # to allocate 
Br if none needed 
Set pointer to Ist free block 
Get address of current block 
Get address of next block 
Set pointer to next block 
Get address of next block 
Loop if need to allocate more 



Get # buffers to allocate 

Br if none uianted 

Count actual buffers allocated 

Set pointer to 1st free block 

Get space needed for message text 

Add space for message header 

Make sure size is even 

Get highest legal address for data areas 

Reduce by size of a block 

Get address of current block 
Get address of next block 
Would this block overflow? 
Br if yes 

Count another actual block 
Set link to next block 
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RO, 4* 
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000210 


160403 6*: 


SUB 


R4, R3 


61 


000212 


005063 OOOOOOG 


CLR 


MU*FLK(R3) 
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63 




; Finished 




64 










65 


000216 


012605 9*: 


MOV 


<SP)+,R5 


66 
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012604 


MOV 


(SP)+, R4 


67 


000222 


012603 


MOV 


(SP)+, R3 


68 
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012602 


MOV 


(SP)+, R2 


69 


000226 


000207 


RETURN 
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/Get address of next block 
i Loop if more to allocate 
i Get address of last block 
; Say it is at end of list 
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. SBTTL MSENB — Queue a message 

The message send EMT is used to queue a message for another job. 

Inputs: 
RO = Address of EMT argument block. 

MSEND: 

> 

! See if there is an existing message channel block for the specified 
; message channel. 



CALL 
BCC 



MBSRCH 
1* 



i Search for existing message channel block 
i Br if found existing message channel block 



OOOOOOG 



CALL 


GETMCB 


BCC 


1* 


MOVB 


#ERR01, INTERR 


BR 


20* 



004737 
103006 
112737 
004737 
000442 



002242 ' 

000002 
002272 ' 



1*: 



OOOOOOG 



There is no existing message channel block for this message channel. 
Create a netu message channel block. 

i Get a new message channel block 
i Br if got a message channel block 
i Return error 1 



At this point/ R2 contains the address of the message channel block. 
Create a message text block. 

i Get a message text block 

> Br if got one 

i Return error # 2 

/Free the MCB we qot if it is idle 



At this point/ 

R2 = Address of message control block. 

R4 = Address of message text block 
Link the new message text block onto the list for the message channel. 



CALL 


GETMTB 


BCC 


3* 


MOVB 


#ERR02/ INTERR 


CALL 


FREMCB 


BR 


20* 



010205 
062705 
005715 
001404 
011505 
062705 
000772 
010415 



OOOOOOG 



OOOOOOG 



3*: 
4*: 



5*: 



MOV R2/ R5 

ADD #MB*BUF/ R5 

TST <R5) 

BEQ 5* 

MOV (R5)/R5 

ADD #MU*FLK. R5 

BR 4* 

MOV R4, (R5) 



Get address of message control block 

Point to cell with addr of Ist text block 

Is there another text block on chain? 

Br if reached end of chain 

Chain forward to next text block 

Point to cell with forward link in text blk 

Continue following chain 

Add new message text block to end of chain 



113764 OOOOOOG OOOOOOG 



013705 
020537 
101405 
112737 
013705 



OOOOOOC 
OOOOOOG 

000004 
OOOOOOG 



OOOOOOG 



Save job index number of job sending the message in message text block 

MOVB CORUSR/ MU*JDB<R4)/ Save index # of job sending message 

Move the message text from the user's buffer into the message text buffer 

MOV EMTBLK+EB*SIZ/ R5/ Get size of user's message 

CMP R5/ VMSCHR ils it longer than buffer space? 

BLOS 6* i Br if length ok 

MOVB #ERR04. INTERR /Return error code 4 if message is too long 

MOV VMSCHR/ R5 i Truncate message length 
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i Set message size in message text block 
# Br if message length is zero 



6*: MOV R5, MU*SIZ<R4) 

13EQ 7* 

ADD #MU*TXT, R4 i Point to start of message text buffer 

MOV EMTBLK+EB*BUF. R3; Get address of user's message buffer 

CALL MSGGET ; Get message into buffer 

We have created a message control block and a messate text block 
and added the message text block to the end of the list of pending 
messages for the message channel. 

Now call routine to see if any users are waiting for a message on 
this message channel. 



7*: 



CALL 



MSGACT 



i Try to activate any waiting users 



Fini shed 



20*: 



RETURN 
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MSGCK — Check for pending message 

. SBTTL MSGCK — Check for pending message 
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The message check EMT is used to determine if a message is pending 
on a message channel. If there is a message/ the message is passed 
to the user. If there is no message/ an error return occurs. 



000404 



000404 004737 001562' 
000410 103403 



MSGCK: 

; See if there is an existing message channel block 



CALL 
BCS 



MBSRCH 
1* 



/Search for existing message channel block 
/Br if no messages 



There is an existing message channel block. 

See if there are any pending messages for this channel. 



000412 005762 
000416 001006 



OOOOOOG 



000420 112737 000003 OOOOOOG 1*: 
000426 005037 OOOOOOG 
000432 000207 



TST MB*BUF(R2) < 
BNE MSOWT i 

There are no pending messages. 
Return error code 3. 

MOVB #ERR03, INTERR 

CLR URO 

RETURN 



Are there any pending messages? 
Br if yes — Go move 1st to user 



i Return error code 3 
/Say message length = 
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SBiiL MSGWT — Wait for a message 



I 
f 



The message luait EMT attempts to get a pending message and if none 
is available suspends the job until one becomes available. 



MSGWT: 



See if this is a request to get a message with wait or with a 
completion routine. 



TSTB 
BNE 



EMTBLK 
MSRCPL 



i If channel # non-zero then compl routine 
J Read luith completion 



See if there is an existing message channel block for the specified 
message channel. 



CALL 
BCC 



MBSRCH 
1* 



i Search for existing message channel block 
f Br if found one 



There is no existing message channel block. 
Create a new one. 



004737 002152' 

103004 

112737 000001 

000450 



004737 001710 
103006 



112737 000005 
004737 002272 ' 
000437 



OOOOOOG 



CALL 


GETMCB 


BCC 


1* 


MOVE 


#ERR01. INTERR 


BR 


20* 



; Get a new message channel block 

; Br if we got a message control block 

i Return error code 1 



Create a message request block for this job 



1*: 



CALL 
BCC 



ADDMRB 
6« 



;Add message request block 

J Br if we got a message request block 



Errori we could not get a free message request block 



OOOOOOG 



MOVB #ERR05, INTERR 
CALL FREMCB 
BR 20$ 



i Return error code 5 

; See if we need to free the message control bk 



004737 000672 ' 



At this point we have created a message request block and added it to 

the list of pending request blocks for this channel. 

Call MSGACT to see if the request can be satisfied immediately. 

R2 = Address of message channel block. 

R4 == Address of message request block. 

6*: CALL MSGACT J Try to satisfy request immediately 

Now wait until message request is satisfied 



113701 
004737 
010105 
062705 
020415 
001413 
005715 
001404 
011505 



OOOOOOG 
OOOOOOG 

OOOOOOG 



2«: 



5*: 



MOVB 


CORUSRi Rl 


CALL 


CHKABT 


MOV 


R1,R5 


ADO 


#LCMQHD, R5 


CMP 


R4, (R5) 


BEQ 


3* 


TST 


(R5) 


BEQ 


4* 


MOV 


(R5),R5 



Get our job index number 

See if we have been aborted 

Get job index number 

Point to list head of completed requests 

Is request block we are waiting for next? 

Br if yes 

Are we at the end of the list? 

Br if yes 

Follow chain to next entry 



i 

1 
i 



r 

I 

f 



TSMSG — 


- TSX-Pl 


us Messa 


ge Trans 


MSGWT - 


— Wait 


for a message 


58 


000544 


062705 


0000000 


59 


000550 


000770 




60 








61 








62 








63 








64 


000552 


012700 


0000000 


65 


000556 


004737 


OOOOOOG 


66 








67 








68 








69 








70 


000562 


000754 




71 








72 








73 








74 








75 


000564 


016415 


OOOOOOG 


76 








77 








78 








79 


000570 


010405 
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OOOOOOG 
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ADD #MR*LNK, R5 
BR 5* 



j Point to cell with forward link 
i Continue following linked list 



Request has not been satisfied yet. 
Suspend job until a message arrives. 



4*: 



MOV #S*MSWT. RO 
CALL QHDSPN 



; Put job in message-wait state 
i Change state and suspend job 



-Job has been restarted. 

See if request has been satisfied. 



BR 



i Go check again to see if request satisfied 



; The request has been satisfied 

; Remove the completed request block from the list. 

f 

3*: MOV MB*FLK(R4)* <R5) ; Remove completed request block from list 

i Move the message text to the user's buffer 

j Get address of request block 
; Move message to user's buffer 
/Return message length to user in RO 

Free the message request block and associated message text block 

CALL FREMRB ; Free message request and text blocks 

Fin.i shed 

20*: RETURN 



MOV 


R4, R5 


CALL 


MSGMOV 


MOV 


RO, URO 
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- Read message uiith completion routine 



SBTTL MSRCPL 



Read message with completion routine 



This EMT is used to read a message with a completion routine signaling 
that a message has arrived. 



000610 



MSRCPL 



See if there is an existing message channel block for the specified 
message channel. 



000610 004737 001562' 
000614 103007 



CALL 
BCC 



MBSRCH 
1* 



; Search for existing message channel block 
j Br if found one 



There is no existing message channel block. 
Create a new one. 



1*: 



0006 1 6 004737 002 1 52 ' 

000622 103004 

000624 112737 000001 OOOOOOG 

000632 000416 



000634 004737 001710' 
000640 103006 



000642 112737 000005 OOOOOOG 
000650 004737 002272 ' 
000654 000405 



000656 013764 OOOOOOC OOOOOOG 6* 



CALL 


GETMCB 


BCC 


1« 


MOVB 


#ERR01, INTERR 


BR 


20* 



; Get a new message channel block 

; Br if we got a message control block 

i Return error code 1 



Create a message request block for this job 



CALL 
BCC 



ADDMRB 
6* 



iAdd message request block 

; Br if we got a message request block 



Error; we could not get a free message request block 



MOVB #ERR05, INTERR 
CALL FREMCB 
BR 20* 



i Return error code 1 

i See if we need to free the message control bk 



Store address of user's completion routine in message request block 

MOV EMTBLK+EB*RTN. MR*RTN<R4>iSet address of user's compl routine 

At this point we have created a message request block and added it to 

the list of pending request blocks for this channel. 

Call MSGACT to see if the request can be satisfied immediately. 

R2 = Address of message channel block. 

R4 = Address of message request block. 



000664 004737 000672 ' 



000670 000207 



CALL MSGACT 
Finished 
20*: RETURN 



Try to satisfy request immediately 
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21 
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29 
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— Check message requests that may be satisfied 



. 3BT7L MSGACT — Check message requests that may be satisfied 

MSGACT is called each time a message is queued for a message channel 

to see if there are any jobs waiting to receive a message from the 

channel. 

If there are waiting users* the users are activated. 

Inputs: 
R2 = Pointer to message channel block. 



000672 010146 
000674 010446 

000676 010546 



000700 016205 OOOOOOG 

000704 001507 

000706 016204 OOOOOOG 

000712 001504 



MSGACT 


: MOV 


R1,-<SP) 




MOV 


R4, -(SP) 




MOV 


R5, -<3P) 


i If 


there are no requesting 


2*: 


MOV 


MB*BUF(R2),R5 




BEQ 


9* 




MOV 


MB*REQ(R2),R4 




BEQ 


9* 



000714 016562 OOOOOOG OOOOOOG 
000722 016462 OOOOOOG OOOOOOG 



000730 010564 OOOOOOG 



000734 116401 OOOOOOG 

000740 062701 OOOOOOG 

000744 005711 

000746 001404 

000750 011101 

000752 062701 OOOOOOG 

000756 000772 

000760 010411 

000762 005064 OOOOOOG 



;Are there any pending messages^' 
; Br if not 

;Are there any requesting users? 
; Br if not 

There are waiting users and pending messages. 

Remove the 1st message text block and the 1st request block from the 

lists for this message channel. 

MOV MU*FLK(R5), MB*BUF<R2)i Remove 1st pending message from list 
MOV MR*LNK(R4).- MB*REQ(R2)i Remove 1st request block 

Assign the message to the request block 

MOV R5. MR*BUF(R4) ; Set address of message text block in req blk 

Add the request block to the list of pending request blocks for this job 

Get # of job that is receiving message 
Point to list head for job 
Have we reached end of list? 
Br if yes 

Link to next pending request block 
Point to cell with forward link 
Continue following chain 
5*: MOV R4>(R1) jAdd new block to end of list 

Say we are at the end of the chain 

If the user wants a completion routine entered to signal message 
reception* queue the completion request. 



4*: 



MOVB 


MR*J0B(R4),R1 


ADD 


#LCMQHD, Rl 


TST 


<R1) 


BEQ 


5* 


MOV 


<R1),R1 


ADD 


#MR*LNK*R1 


BR 


4* 


MOV 


R4> (Rl) 


CLR 


MR*LNK(R4) 



000766 026427 OOOOOOG 000001 

000774 101442 

000776 004737 OOOOOOG 

00 1 002 1 1 6400 OOOOOOG 

001006 110061 OOOOOOG 

001012 116061 OOOOOOG OOOOOOG 

001020 112761 OOOOOOG OOOOOOG 

001026 112761 OOOOOOG OOOOOOG 

001034 005760 OOOOOOG 

001040 001403 



CMP 

BLOS 

CALL 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

TST 

BEQ 



MR*RTN(R4), #1 

1* 

GETQ 

MR*J0B<R4),R0 

R0/CQ*J0B<R1) 



i Is there a completion routine? 

; Br if not 

; Get a completion queue entry (addr in Ri) 

; Get job index # of requesting job 

; Set job # in completion queue entry 



LPRI(RO)*CQ*PRI<Rl)iSet job priority 

#S*I0FN* CQ*RNS(R1) ; Set job execution state for cpl rtn 

#CP*STD* CQ*CP(R1 >i Set standard compl routine class priority 

LITIME<RO) i Is this an interactive job? 

3* ; Br if not 
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I 

c 

€ 

I 
( 
C 

f 

< 



5S 001042 

59 001050 

60 001056 

61 001064 

62 001072 

63 001074 

64 001100 
65 

66 
67 
68 
69 

/ W WW A i Wei 



71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
S3 
84 
85 
86 



001106 
001114 
001116 
001122 



001130 
001132 
001134 
001136 



i 12761 
012761 
013761 
112761 
010104 
004737 
000677 



0000000 OOOOOOG 
001140' OOOOOOG 3*: 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



1 1 640 J. 
026127 
001271 
004737 
000666 



wOOwsjOG 
OOOOOOG OOOOOOG 

OOOOOOG 



MOVE #S*HICP.CQ«RNS<Rl)i Set interactive state 

MOV #MSOCPL> CQ*RTN(Rl)i Set address of our completion routine 

MOV @#KPAR5, CQ*PA5(Rl)i Set PAR 5 mapping value for this region 

MOVE #QF«SCR. CQ*FLG(R1 )i Say compl routine is part of system 

MOV R1,R4 ;Get address of completion block for QCOMPL 

CALL QCOMPL j Queue completion request for waiting job 

BR 2* i See if there are more requests to satisfy 

There is no completion routine for waiting user. 

Add completed ujait block to pending list for user and 

restart execution of waiting user. 

1*; MOVE MR*J0B(R4), Ri ; Get waiting user's job index number 

CMP LSTATE<Rl)i #S*MSWTi Is job waiting for a message? 

BNE 2* ;Br if not 

CALL QHIPRI ; Restart waiting user 

BR 2$ /See if more message requests to satisfy 

There are no more message requests that can be satisfied. 
If the message channel block is now idle* free it. 



001124 004737 002272' 



9*: 



CALL 



FREMCB 



Free message channel block if idle 



012605 
012604 
012601 
000207 



Finished 




MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, Rl 


RETURN 
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1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001140 
001142 
001144 
001146 



001150 

001154 
001160 
001162 
001164 
001172 
001174 
001176 
001202 



001210 
001214 



001216 
001222 
001226 
001232 
001236 
001240 
001244 
001250 
001254 
001262 
001270 
001276 
001302 
001304 
001312 
001320 
001322 



3BT7L MSGCPL 



CtimpletioM i Cutine processing 



messages 



i 

i 
C 



Whenever a message is received by a job that requested a message completion 
routine* two completion routines are triggered. 

The first completion routine executed is this routine <MSGCPL) which is 
the system completion routine that moves the message text to the user's 
buffer and then queues the user's completion routine. 



010146 
010246 
010446 
010546 



113702 
062702 
011205 
001464 
026527 
101004 
010502 
062702 
000766 



MSGCPL: MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP > 
R2, -<SP) 
R4, -<SP) 
R5, -(SP) 



OOOOOOG 
OOOOOOG 



OOOOOOG 000001 



OOOOOOG 



Begin loop to process all completed message request blocks. 

Get current job index number 
Point to compl message request blk Q head 
1*: MOV (R2)>R5 ; Get address of next completed request block 

Br if no more to process 
Does this one have a compl routine? 
Br if yes 
Link on and continue search 



We have found a completed message request block for this job. 
Remove the completed request block from the list for the job. 



MOVE 


CORUSRi R2 


ADD 


#LCMQHD> R2 


MOV 


(R2),R5 


BEQ 


9* 


CMP 


MR*RTN(R5),#1 


BHI 


2* 


MOV 


R5, R2 


ADD 


#MR*LNK, R2 


BR 


1* 



001204 016512 OOOOOOG 



2*: 



MOV 



MR*LNK(R5)* <R2) i Remove request block from list 



Move the message to the user's buffer. 



004737 
010004 



004737 
010461 
016500 
116000 
006200 
010061 
116500 
110061 
116061 
112761 
112761 
005760 
001403 
112761 
016561 
010104 
004737 



001420' 



CALL 
MOV 



MSGMOV 
RO, R4 



Move message to user's buffer 
Save message length in R4 



Queue a completion request to call the user's completion routine 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 3*: 

OOOOOOG 



CALL 

MOV 

MOV 

MOVE 

ASR 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

TST 

BEQ 

MOVB 

MOV 

MOV 

CALL 



GETQ 

R4, CQ*R0(R1) 

MR*BUF<R5),R0 

MU*JOB<RO),RO 

RO 

RO/ CQ*R1(R1) 

MR*J0B(R5),R0 

RO, CQ*J0B<Ri> 



Get a comp 
Pass messa 
Get addres 
Get job in 
Convert to 
Pass send! 
Get job in 
Set job # 



in Rl) 



entry (addr 
user in RO 
text buffer 
that sent message 



LPRI(RO),CQ*PRI<Rl)>Set job 
#S*IOFNiCQ*RNS<Rl) ; Set job 
#CP*STD, CQ*CP<R1); Set stand 
LITIME<RO) i Is this an 
3* i Br if not 

#S*HICP, CQ*RNS(R1); Set inte 
MR*RTN(R5)/CQ*RTN(Rl>i Set a 
R1,R4 i Get addres 

QCOMPL i Queue comp 



letion queue 
ge length to 
s of message 
dex # of job 

job number 
ng job number in Rl 
dex # of requesting job 
in completion queue entry 

priority 

execution state for cpl rtn 
ard compl rtn class priority 

interactive job? 

ractive state 

ddress of completion routine 

s of completion block for QCOMPL 

letion request for waiting job 



Now free the message request block and the associated message text block 



I 
i 

c 

4 
< 

C 
4 
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38 UUi32o UU*t7%3/ KJ\Jt£.3Dt£. ' 

59 

60 

61 

62 

63 001332 000712 

64 

65 

oo 

67 001334 012605 

68 001336 012604 

69 001340 012602 

70 001342 012601 

71 001344 000207 



CALL 



FREMRB 



Free the message request block 



Oo back and see if there ars any more completed message request 
blocks for this job. 

BR 1* 

Finished all completed message request blocks for this job 



9*: 



MOV 


(SP)+, 


R5 


MOV 


<SP)+, 


R4 


MOV 


(SP)+, 


R2 


MOV 


<3P)+, 


Rl 


RETURN 
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1 






2 






3 






4 






5 






6 






7 






8 






9 






10 






11 


001346 


010346 


12 


001350 


010446 


13 


001352 


010546 


14 






15 






16 






17 


001354 


032703 000001 


18 


001360 


001007 


19 


001362 


005205 


20 


001364 


000241 


21 


001366 


006005 


22 


001370 


106523 


23 


001372 


012624 


24 


001374 


077503 


25 


001376 


O00404 


26 






27 






2S 






29 


001400 


004737 OOOOOOG 


30 


001404 


110024 


31 


001406 


077504 


32 






33 






34 






35 


001410 


012605 


36 


001412 


012604 


37 


001414 


012603 


38 


001416 


000207 



3gjjL MSGGET — Move message text into internal buffer 

MSGGET is called to move a message text string from the user's buffer 
into an internal buffer. 

Inputs: 
R3 = Address of buffer in user's program space 
R4 = Address of internal buffer where message is to be stored 
R5 = Number of bytes to move 



MSGGET: MOV 
MOV 

MOV 



R3, -<SP) 
R4, -(SP) 
<SP) 



R5, -=<SP^ 



If the user's buffer address is even* do a word-by-u>ord move 



2$: 



BIT #1,R3 

BNE 3* 

INC R5 

CLC 

ROR R5 

MFPD (R3)+ 

MOV (SP)+, <R4)+ 

SOB R5, 2* 

BR 9« 

Do byte-by-byte move 



3$: CALL 
MOVE 
SOB 

Finished 



9*: 



MOV 
MOV 
MOV 
RETURN 



GETUCH 
RO, (R4) + 
R5, 3* 



(SP)+, R5 
<SP)+, R4 
(SP)+, R3 



Is user's buffer on word boundary? 

Br if not 

Bound # bytes up to word multiple 

Clear for rotate 

Get # words to move 

Get a word from user's buffer 

Move to internal buffer 

Loop if more words to move 



; Get byte from user's buffer 
i Move to internal buffer 
i Loop if more to move 



t 
i 

c 
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i 
i 

i 
I 
I 
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i 
i 
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f 

i 
i 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
U 
12 001420 

14 001424 

15 001426 

16 001430 
17 

18 
19 
20 

21 001432 

22 001436 

23 001442 

24 001446 

25 001452 

26 001456 

27 001460 

28 001462 

29 001464 

30 001472 

31 001474 
32 

33 
34 
35 

36 001476 

37 001502 

38 001504 

39 001506 

40 001510 

41 001512 

42 001514 

43 001516 

44 001520 

45 001522 

46 001524 

47 001526 

48 001530 

49 001532 

50 001534 
51 

52 
53 

54 001536 

55 001540 

56 001544 
57 



. SBTTL MSGMOV 



Move message text to user's buffer 



010146 

KJi. u«!:*fo 
010346 
010446 
005046 



016502 
016201 
062702 
016503 
016504 
020104 
101404 
010401 
112737 
010116 
001424 



032703 
001015 
010100 
005001 
000241 
006000 
103001 
005201 
005700 
001405 
012246 
106623 
077003 
005701 
001404 



112200 
004737 
077104 



MSGMOV Is called to move a message text string from a message text 
buffer to a user's buffer. 



Inputs: 
R5 = Address of completed message request block. 

Outputs: 
RO = Length of message passed to user. 



MSGMOV: MOV 
MOV 
MOV 
MOV 
CLR 



R 1 , - ( SP ) 
R2» -<SP ) 
R3, -<SP) 
R4, -<SP) 
-(SP) 



> Store message length here 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



000004 OOOOOOG 



1*: 



Set up pointers to the message in the internal buffer and to the 
user's receiving buffer. 

Get address of message text block 

Get size of message 

Point to start of text string 

Get address of user's buffer 

Get size of user's buffer 

Is text longer than user's buffer? 

Br if not 

Truncate to fit user's buffer 

Return truncation error 

Save actual message length 

Br if message length 

Move the message text to the user's buffer 

If user's buffer is on word boundary* do word-by-uord move. 



MOV 


MR*BUF<R5),R2 


MOV 


MU*SIZ(R2),R1 


ADD 


#MU*TXT, R2 


MOV 


MR*UBA<R5),R3 


MOV 


MR*UBS<R5),R4 


CMP 


Rli R4 


BLOS 


1* 


MOV 


R4, Rl 


MOVE 


#ERR04, INTERR 


MOV 


Rl, (SP) 


BEQ 


9* 



000001 



2*: 



7«: 

5*: 



BIT 


#1,R3 


BNE 


a* 


MOV 


R1,R0 


CLR 


Rl 


CLC 




ROR 


RO 


BCC 


7* 


INC 


Rl 


TST 


RO 


BEQ 


6* 


MOV 


<R2)+, -<SP) 


MTPD 


(R3) + 


SOB 


RO, 5« 


TST 


Rl 


BEQ 


9« 



Is u 

Br i 

Get 

Assu 

Clea 

Get 

Br i 

Reme 

Any 

Br i 

Get 

Stor 

Move 

Did 

Br i 



ser's buffer address even? 
f not 

# bytes uie need to move 

me no bytes will be left over 
r carry for rotate 

# words to move 

f no odd byte left over 
mber to move last odd byte 
ujords to moveT' 

f not — Must be 1 byte message 
a word to be stored 
e into user's buffer 
required # of words 
we have an odd byte left over? 
f not 



Do byte-by~byte move 



6*: 



OOOOOOG 



MOVB 


(R2>+, RO 


CALL 


PUTUCH 


SOB 


Rl,6* 



i Get next char of message 

J Move to user's buffer 

; Loop till all of message moved 
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58 
59 

60 001546 

61 001550 

62 001552 

63 001554 

64 001556 

65 001560 



012600 
012604 
012603 
012602 
012601 
000207 



9*: 



Finished 




MOV 


(SP)+, RO 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





; Get message length 
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— Search for message channel block 



001562 010346 
001564 010446 



001566 004737 001646' 



001572 013702 000002' 
001576 001417 



001600 010203 

001602 062703 OOOOOOG 

001606 012700 000012' 

001612 012704 000006 

001616 122023 

001620 001003 

001622 077403 



001624 000241 
001626 000404 



001630 016202 OOOOOOG 
001634 001361 



001636 000261 



001640 012604 
001642 012603 
001644 000207 



. SBTTL MBSRCH — Search for message channel block 

MBSRCH is called to attempt to find an existing message channel 
block that matches the message channel uhose name is specified 
by the current EMT. 

Outputs: 
C-flag cleared ==> Message channel block found. 

C-flag set ==> Could not find existing message channel block. 
R2 = Address of message channel block if one found. 



MBSRCH: MOV 
MOV 



R3, -<SP) 
R4, -<SP) 



Set up message channel name in CHNNAM 

CALL MSGNAM ; Set up message channel name 

Begin loop to search for existing message channel block 



MOV 
BEQ 



MBMHD, R2 
8* 



;Point to 1st message channel block 
j Br if no message channel blocks 



Compare message channel names 



1*: 



?*: 



MOV 


R2, R3 


ADD 


#MB*NAM, R3 


MOV 


#CHNNAM, RO 


MOV 


#6, R4 


CMPB 


(R0)+, <R3) + 


BNE 


3* 


SOB 


R4, 2* 



i Get address of message channel block 

iPoint to name in channel block 

/Point to target name 

; Names are 6 chars long 

/Compare names 

i Br if mismatch 

i Loop to compare rest of names 



We found the message channel block 

i Signal success 



CLC 
BR 



9* 



Names do not match. 

See if there are more blocks to check. 



3*: 



MOV MB«FLK(R2),R2 
BNE 1$ 



; Get address of next block 

> Loop if there is another one 



/ We cannot find the message channel block 

8*: SEC i Signal failure on return 



i Finished 




9«: MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


RETURN 
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c 
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. SBTTL MSGNAM — Set up name of message channel 



1 

2 








3 








4 








5 








6 








7 








8 








9 


001646 


010246 




10 


001650 


010346 




11 


001652 


010446 




12 








13 








14 








15 


001654 


013703 


OOOOOOC 


16 


001660 


012702 


000012' 


17 


001664 


012704 


000006 


18 


001670 


004737 


OOOOOOG 


19 


001674 


110022 




20 


001676 


077404 




21 








22 








23 








24 


001700 


012604 




25 


001702 


012603 




26 


001704 


012602 




27 


001706 


000207 





MSGNAM is called to acquire the message channel name specified 
with the current EMT and move it to a temporary buffer. 



} Outputs: 
i CHNNAM = 

i 

MSGNAM: MOV 
MOV 
MOV 



Message channel name. 

R2/ -(SP) 
R3, -(SP) 
R4, -(SP) 



1*: 



Move message channel name from user's area to internal temp cell 

EMTBLK+EB*NAM» R3; Get pointer to user's name cell 

; Get pointer to temp cell 
i Move 6 chars 

/Get char from user's buffer 
; Move to temp buffer 
i Loop if more to move 



MOV 


EMTBLK+EB* 


MOV 


#CHNNAM, R2 


MOV 


#6, R4 


CALL 


GETUCH 


MOVE 


RO, (R2) + 


SOB 


R4, 1* 


Finished 




MOV 


(SP)+iR4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





i 
i 
4 
( 
C 
( 
i 
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ADDMRB — Add new message request block 



1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 
15 

16 001710 
17 
18 
19 

20 001710 

21 001714 

22 001716 
23 

24 
25 
26 

27 001724 

28 001732 

29 001740 

30 001746 

31 001752 
32 

33 
34 

35 001756 

36 001760 

37 001764 

38 001766 

39 001770 

40 001772 

41 001776 

42 002000 

43 002002 

44 002006 

45 002010 
46 

47 

48 

49 002012 

50 

51 

52 

53 002014 



SBTTL ADDMRB 



Add neui message request block 



013704 
001436 
016437 



013764 
013764 
113764 
005064 
005064 



010200 
062700 
005710 
001404 
011000 
062700 
000772 
010410 
005064 
000241 
000401 



000261 



000207 



000006 ' 
OOOOOOG 000006' 



OOOOOOC 

ooooooc 

OOOOOOG 

ooooooe 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 



ADDMRB creates a new message request block and adds it to the list 
of message request blocks for a specified message channel block. 
Information about the current job number* user's buffer address and 
buffer size are set up in the message request block. 

Inputs: 
R2 = Address of message channel block. 

Outputs: 
C-flag cleared ===> We successfully added a message request block. 
C-flag set ===> Error detected uihile creating message request block. 
R4 = Address of message request block we created. 

ADDMRB: 

Get a message request block off of the free list 

MOV MRBFHD, R4 i Get message request block off of free list 
BEQ 8* » Br if there are no free blocks 

MOV MR*LNK<R4),MRBFHDi Remove block from free list 

We got a free message request block. 
Initialize with values from EMT argument block. 

MOV EMTBLK+EB$BUF,MR*UBA<R4.) > User's buffer address 

MOV EMTBLK+EB*SIZ>MR*UBS(R4) ; User's buffer size 

MOVB C0RUSR,MR*J0B<R4) i Job index number 

CLR MR*RTN(R4) i Say no completion routine 

CLR MR*BUF(R4) i Say no associated text block 

Add message request block to tail of request blocks for message channel 



2«: 



3*: 



MOV R2, RO 

ADD #MB*REQ. RO 

TST (RO) 

BEQ 3$ 

MOV (RO),RO 

ADD #MR*LNK, RO 

BR 2* 

MOV R4i <R0) 

CLR MR*LNK<R4) 

CLC 

BR 9* 



Get address of message channel block 

Point to list head of request blocks 

Are we at the end of the list? 

Br if yes 

Link to next one on list 

Point to cell with forward link 

Continue following chain 

Add new block to end of list 

Say we are at end of list 

Signal success on return 



Error — No free message request blocks 
8*: SEC i Signal failure on return 

Fini shed 
9*: RETURN 
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5 

7 
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— Abort 


all message req 


002016 


010246 




10 


002020 


010346 




11 


002022 


010446 




12 


002024 


010546 




13 








14 








15 








16 


002026 


016105 


OOOOOOG 


17 


002032 


001410 




18 


002034 


016504 


OOOOOOG 


19 


002040 


004737 


002352 ' 


20 


002044 


010405 




21 


002046 


001372 




22 


002050 


005061 


OOOOOOG 


23 








24 








25 








26 


002054 


013702 


000002 ' 


27 


002060 


001427 




28 


002062 


010203 




29 


002064 


062703 


OOOOOOG 


30 


002070 


011305 




31 


002072 


001414 




32 


002074 


120165 


OOOOOOG 


33 


002100 


001005 




34 


002102 


016513 


OOOOOOG 


35 


002106 


004737 


002352 ' 


36 


002112 


000766 




37 


002114 


010503 




38 


002116 


062703 


OOOOOOG 


39 


002122 


000762 




40 


002124 


016203 


OOOOOOG 


41 


002130 


004737 


002272 ' 


42 


002134 


010302 




43 


002136 


001352 




44 








45 








46 








47 


002140 


012605 




48 


002142 


012604 




49 


002144 


012603 




50 


002146 


012602 




51 


002150 


000207 
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, SBTTL MSGABT — Abort all message requests for a job 

MSGABT is called when a job aborts to clean up all pending message 
requests for the job. 

Inputs: 
Rl = Job index number of aborting job. 



MSGABT: MOV 
MOV 
MOV 
MOV 



R2, -(SP) 
R3i -<SP) 
R4, -(SP) 
R5, -(SP) 



Free all completed message request blocks that are pending for the job 



1*: 



MOV LCMQHD(Rl), R5 

BEQ 2« 

MOV MR*LNK(R5).R4 

CALL FREMRB 

MOV R4, R5 

BNE 1* 

CLR LCMQHD<R1) 



Get addr of 1st completed message request 

Br if there are none 

Get address of next request block 

Free the message request block 

Get address of next completed block 

Loop if there is another block to free 

Say there are no completed requests for job 



Free all pending message requests for this job 



>*: 



7*: 
6*: 



5*: 



4*: 



9*: 



MOV 

BEQ 

MOV 

ADD 

MOV 

BEQ 

CMPB 

BNE 

MOV 

CALL 

BR 

MOV 

ADD 

BR 

MOV 

CALL 

MOV 

BNE 

Finished 

MOV 
MOV 
MOV 
MOV 
RETURN 



MBMHD, R2 

9* 

R2, R3 

#MB*REQ, R3 

(R3>.R5 

4* 

Rl, MR«J0B(R5) 

5* 

MR*LNK(R5), (R3) 

FREMRB 

6$ 

R5, R3 

#MR*LNK, R3 

6$ 

MB*FLK(R2), R3 

FREMCB 

R3i R2 

7* 



<SP)+, R5 
(SP)+, R4 
(SP)+, R3 
(SP)+, R2 



Get addr of 1st message channel block 

Br if there are none 

Get address of message channel block 

Get address of cell uiith ptr to request blk 

Get address of next message request block 

Br if there are no more 

Is this message request for aborting job? 

Br if not 

Remove message block from list 

Free the message request block 

Go see if there are more to free 

Get address of current block 

Point to cell with forward link 

Keep looking for more requests for this job 

Get pointer to next message channel block 

See if ue need to free current channel block 

Get address of next message channel block 

Br if more message channels to check 
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- Get a neu message control block 

. SBTTL GETMCB — Set a neui message control block 

GETMCB is called to get a neu) message control block. 



Inputs: 
CHNNAM 



Message channel name string 



002152 



002152 013702 000004' 

002156 001427 

002160 016237 OOOOOOG 000004' 



002166 005062 OOOOOOG 

002172 005062 OOOOOOG 

002176 013762 000012' OOOOOOG 

002204 013762 000014' 000002G 

002212 013762 000016' 000004G 



002220 013762 000002' OOOOOOG 
002226 010237 000002' 



Outputs: 
C—Flag cleared ==> Message control block gotten. 
C-flag set ==> Could not get a free message control block. 
R2 = Address of message control block. 

GETMCB: 

Get 1st message control block off of free list 

MOV MCBFHDi R2 ; Get 1st free message control block 
BEQ 8* j Br if there are no free message blocks 

MOV MB*FLK(R2)/ MCBFHD ; Remove block from free list 

We got a free message control block. 
Initialize it. 

CLR MB*BUF<R2) i No pending messages 

CLR MB*REQ(R2) ; No pending message requests 

MOV CHNNAM, MB«NAM(R2)i Set 1st 2 chars of name 

MOV CHNNAM+2, MB*NAM+2<R2.>i Set 2nd 2 chars of name 

MOV CHNNAM+4, MB*NAM+4<R2)i Set 3rd 2 chars of name 

Add message channel block to list of active message channels 

MOV MBMHD, MB*FLK(R2)i Add new block to list of active blocks 
MOV R2, MBMHD i Put neu block at head of list 



We successfully got a block 



002232 000241 
002234 000401 



002236 000261 



002240 000207 



CLC 
BR 



J Signal success on return 



9* 



i There are no free message control blocks 

8*: SEC ; Signal failure on return 

; Finished 

9*: RETURN 
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- Get a free message text block 



SBTTL SETMTB 



Get a free message text block 



GETMTB is called to try to acquire a free message text block. 
Message text blocks are used to hold message text strings. 

Outputs: 
C-flag cleared ==> A free message text block was gotten. 
C-flag set ==> There are no free message text blocks. 
R4 = Address of message text block if one was gotten. 



002242 



002242 013704 000010' 

002246 001407 

002250 016437 OOOOOOG 000010 

002256 005064 OOOOOOG 

002262 000241 

002264 000401 



002266 000261 



002270 000207 



GETMTB: 

Get iSt message text block off of free list 

MOV MTBFHD, R4 i Get pointer to 1st free message text block 

BEQ 1* i Br if there are no free blocks 

MOV MU*FLK<R4), MTBFHD i Remove block from free list 

CLR MU*FLK(R4) ; Say block is not part of any list 

CLC i Signal success on return 

BR 9* 

There are no free message text blocks 
1*: SEC /Signal failure on return 

Finished 
9*: RETURN 
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- Free a message control block 

. SBTTL FREMCB — Free a message control block 



002272 



002372 005762 OOOOOOG 

002276 001024 

002300 005762 0000000 

002304 001021 



FREMCB is called to attempt to return a message control block to the 
free list. This routine checks to see if there are any pending 
messages for the message channel or pending message requests. 
If there are any pending messages or message requests/ this routine 
returns without freeing the message control block. 



Inputs: 
R2 = Address of message control block to be freed. 

FREMCB: 

See if this message control block is idle 



TST MB*BUF<R2) 

BNE 9* 

TST MB*REQ<R2) 

BNE 9* 



/Any pending messages? 

/Br if yes 

/Any pending message requests? 

/Br if yes 



002306 012700 OOOOOOC 

002312 020260 OOOOOOG 1«: 

002316 001404 

002320 016000 OOOOOOG 

002324 001372 

002326 000403 

002330 016260 OOOOOOG OOOOOOG 2*: 



This message control block is idle. 
Remove it from the active list. 

MOV #MBMHD-MB*FLK,RO/ Point to active list head 

CMP R2/ MB*FLK<RO) /Are ute next block on list? 

BEQ 2* i Br if yes 

MOV MB*FLK<RO)/RO /Chain to next block 

BNE 1* /Go check it 

BR 3* /Block is not on active list 

MOV MB*FLK(R2)/ MB*FLK(RO); Remove from active list 

Return it to free list. 



002336 013762 000004' OOOOOOG 3*: MOV 
002344 010237 000004' MOV 



MCBFHD/ MB*FLK<R2)/ Add block to free list 
R2, MCBFHD 



002350 000207 



Finished 
9$: RETURN 



TSMSG — TSX-Plus Message Trans MACRO V05. 05 Wednesday lS-Jan-S9 14: 15 Page IS 
FREMRB — Free a message request block 



J. 

2 

3 

4 

5 

6 

7 

8 

9 002352 
10 
11 
12 

13 002352 016500 OOOOOOG 

14 002356 001407 

15 002360 013760 000010' OOOOOOG 

16 002366 010037 000010' 

17 002372 005065 OOOOOOG 
18 
19 
20 

21 002376 013765 000006' OOOOOOG 1*: 

22 002404 010537 000006' 
23 
24 
25 

26 002410 000207 
27 
2S 
29 

30 002412 

31 000001 
Errors detected: 

*** Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 49 Words ( 1 Pages) 

Size of core pool: 18176 Words ( 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:00:21.33 
, LP: TSMSG=DK: TSMSG /C/N: SYM 



. 3BTTL FREMRB 



Free a message request block 



FREMRB is called to free a message request block. 
It also frees any associated message text block. 

Inputs: 
R5 = Address of message request block being freed. 

FREMRB: 

See if there is an associated message text block that needs to be freed 

MOV MR*BUF<R5), RO ils there an associated message text block? 

BEQ 1* ; Br if not 

MOV MTBFHD, MU*FLK<RO)i Add message text block to free list 

MOV RO, MTBFHD 

CLR MR*BUF(R5> * Say message text block has been freed 



Free the message request block 



MOV 
MOV 



Finished 

RETURN 
Top of TSMSG 
MSGTOP: 



MRBFHD, MR*LNK<R5); Add block to free list 
R5, MRBFHD 



END 
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13-28 



6-19* 
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